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توقر ت اران اسم اى كال سا أعاة انى را ع تعر ات آي اسان ا رق رة 
اتك شد الورن د عا أخر من امترات وة ا انزح ف المتر ان الخاصة أو ها عرفت ادن 
eاVariab‏ اهاعم أن الذي يميز هذا النوع من المتغيرات عن النوع الاخر من المتغيرات التي يقوم بها 
المستخدم بالتعامل معها هو أن هذه المتغيرات تكون متميزة بنقطتين هما 
أو لا ٤‏ أن الاسماء الأخاصة بھذه المتغيرات هي اسماءِ ثابتة لاتتغير 
TO O E E‏ 
البرمجي 
ار ت ا ا آل ل هی 


-1 
*Coded)‏ 
_$ 
يتم التعامل مع المتغير في الجدول أعلاه على أنه المتغير الافتراضي في لغة البيرل حيث يتم التعامل في أغلب 
حالات التعابير القياسية ویتم اعتباره المتغير الافتراضي لاغلب الدوال البرمجية 
ویکون التمثيل البرمجي الخاص بهذا المتغير الخاص كما يلي من خلال المقطع البرمجي الاتي 
*Code@2)‏ 
$_="perl is programming language";‏ 
s/perlPERL/;‏ 
print $_;‏ 
ویکون ناتج تنفيذ هذا المقطع أعلاه كما يلي من خلال الشكل ادناه 
Figure)‏ 
2 
*CodeG)‏ 
@ 


المتغير البرمجي أعلاه يتم استعمال هذه المصفوفة بصورة عامة في برمجة الروتينات الفرعية حيث يتم استعمال 
هذه المصفوفة لكي يتم تمرير المتغيرات الى الروتين الفرعي ويكون التمثيل البرمجي الخاص بهذه المصفوفة هو 
کالاتي من خلال المقطع ادناه 

*Code(4) 
sub spawn { 


@_ = ($) 


و سيتم التطرق الى عمل هذه المصفوفة لاحقا في القسم الخاص ببرمجة الروتينات الفرعية في لغة البيرل 
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3 
*Code(®)‏ 
&$ 
يكون التمثيل البرمجي الخاص بهذا المتغير كما يلي من خلال المقطع البرمجي الاتي 
*Code(6)‏ 
"spawn is perl programmer" =~ /perlV/;‏ 
print $&,"\n",‏ 
أذا ما تم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية تنفيذه سوف تكون كما يلي من خلال الشكل الاتي 
Figure(2)‏ 
يوضح الشكل أعلاه ناتج تنفيذ المقطع البرمجي المتعلق بالمتغير الخاص سابق الذكر 
-4 
*Code(/)‏ 
| 8 
يكون التمثيل البرمجي الخاص بهذا النوع من المتغيرات في لغة البيرل كما يلي في المقطع البرمجي الاتي 
*Code(®8)‏ 
"spawn is perl programmer" =~ /perlV/;‏ 
print $',"\n‏ 


و ألان اذا ما تم تنفيذ المقطع أعلاه فأن النتاج من عملية التنفيذ سيكون كما يلي من خلال الشكل التوضيحي الاتي 


Figure(3) 
تكون الوظيفة البرمجية التتي يقوم بها هذا النوع من المتغيرات الخاصة هي انه بعد انه يتم تحديد الكلمة في‎ 
التعبير القياسي لكي يتم مطابقتها كما حصل في المثال السابق هذا المتغير يكون دوره في أعطاء المستخدم هي‎ 
ماهي الكلمة التي تقع بعد الكملة التي تمت مطابقتها وفي هذه الحالة الكلمة التي تقع بعد كلمة 1إممالكلمة‎ 


pro gTaMmMECF 
5- 
*Code@O) 
$ | 
يكون التمتيل البرمجي لهذا المتغير في لغة البيرل كما يلي من خلال المقطع البرمجي الاتي‎ 
*Code(10) 


"spawn is perl programmer" =~ /perlV/; 
print $`, "\n 


وألان اذا تم تنفيذ المقطع اعلاه فأن الناتج من عملية التنفيذ سوف يكون كما يلي في الشكل التوضيحي أدناه 


Figure(4) 


تكزن الوظفة البرمجية التي بقرم بها هذا امغر هى أظهار ذلك الجزء من النطة النصية الذي سيق الجزء 
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المطلوب مطابقته وفي هذه الحالة يكون الجزء الذي يسبق الكلمة المراد مطابقتها هي كلمة 


spawn is 
6- 
*Code(l1) 
$+ 
یکون التمتيل البرمجي لهذا النوع من المتغيرات في لغة البيرل كما يلي من خلال المقطع البرمجي أعلاه وكما يلي‎ 
*Code(12) 
"spawn is perl programmer" =~ /{(perl) | (PERLJY; 
print $+; 


والان أذا تم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية تنفيذه سوف تكون 


Figure(5) 
تكون الوظيفة البرمجية التي يقم بهذا المقطع البرمجي اعلاه هي انه يعمل على مقارنة القيم التي تم اعطاءها في‎ 
خانة التعبير القياسي مع كلمة او حرف أو رمز في السلسلة النصية المقابلة التي يتم استخدامها ولكن الغاية البرمجية‎ 
من م هذا المتغير هي عندما يكون المبرمج غير متأكد من اي تعبير قياسي سوف تتم مطابقته‎ 
في السلسة يكون دور هذا المتغير في حل هذه المشكلة واذا ما تمت ملاحظة السلسة النصية في المقطع‎ 
عندما تم طباعة‎ ùl LowerCase Jl البرمجي اعلاه فأنه 1مم في السلسة النصية على النسق الصغير اي‎ 
المتغير الخاص تم طباعة كلمة ال ]ەم بالنسق الصغير.‎ 


2 
*Code(l13) 
@+ 

يكون التمثيل البرمجي لهذا المتغير في لغة البيرل كما يلي من خلال المقطع البرمجي ألاتي 
*Code4)‏ 
"spawn is perl programmer" =~ /s/;‏ 
print @+;‏ 


عندما يتم تنفيذ المقطع البرمجي ألاتي فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(6) 
ان الاسلوب البرمجي الذي تتبعه هذه المصفوفة هو انه تعمل على اعطاء موقع الحرف الموجود في السلسلة النصية‎ 
بعد أن يتم مقارنته بالحرف او الرمز الذي تم اعطاءه في التعبير القياسي وأن موقع الحرف وفي السلسلة النصية هو‎ 
هو الموقع (1) اي الموقع الاول.‎ 
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8- 
*Code(l 35) 
$. 

يكون التمثيل البرمجي العام لهذا المتغير الخاص في لغة البيرل كما يلي من خلال المقطع البرمجي الاتي 
*Code(l16)‏ 
open (FH,"/home/spawn/aa");‏ 
while (<FH>){‏ 
print $.;‏ 
print "\n";‏ 


} 


الان اذا تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ كما يلي من خلال الشكل التوضيحي الاتي 


Figure(/7) 
تكون الوظيفة البرمجية التي يقوم بها هذا المتغير هي انه يعمل على عد كافة الاسطر التي يحتويها الملف الذي يتم‎ 
التعامل معه اي انه الملف الذي في المقطع البرمجي اعلاه هو عبارة عن ملف نصي مكون من 3 اسطر فقط‎ 


Bpawn is perl programmer 
storm is c programmer 
striky is python programmer 


Figure(8) 
9- 


*Code(l 7) 
أ9‎ 


يكون التمثيل البرمجي لهذا النوع من المتغيرات في لغة البيرل كما يلي من خلال المقطع البرمجي الاتي 
*Code(l 8)‏ 
;"ا9 
print $a="perl";‏ 
print $b="c";‏ 
print $c="python";‏ 


يكون ناتج تنفيد | لمقطع البرمجي اعلاه كما يل من خلال الشكل التوضيحي الاتي 


Figure(9) 
_تكون الوظيفة البرمجية التي يقوم بها هذا المتغير الخاص هي كالاتي حيث ان هذا المتغير يقوم بمهمة وهي فصل‎ 
روابط المخرجات‎ 
وذلك من خلال فاصلة تحدد من قبل المستخدم وكما هو ملاحظ من المقطع البرمجي السابق كانت الفاصلة هي ال(-)‎ 
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10- 
*Code([9) 
5/ 

يكون التمثيل البرمجي لهذا النوع من المتغيرات في لغة البيرل كما يلي من خلال المقطع البرمجي ألاتي 
*Code(20)‏ 
open(FH,"/home/spawn/aa");‏ 
while(<FH>){‏ 
print $_,%/;‏ 


1 
J 


واذا تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي في الشكل الاتي 


Figure(10) 
تكون الوظيفة البرمجية التي يقوم بها هذا المتغير هي انه يعمل على اضافة سطر جديد بين كل سطر حيث ان الملف‎ 
الذي تم استعماله في المقطع البرمجي أعلاه هو عبارة عن ملف مكون من 3 أسطر وعندما تم استعمال هذا المتغير‎ 
تم اضافة سطر جديد بين كل سطر وشكل الملف الاصلي هو كألاتي‎ 


Bpawn is perl programmer 
storm is c programmer 
striky is python programmer 


Figure(11) 

الملف قبل استعمال هذا المتغير يكون مكون من 3 أسطر وبعد استعمال المتغير اصبح 6 أسطر 

11- 

*Code@21) 
$ 
يكون التمتيل البرمجي لهذا المتغير هو كما يلي من خلال المقطع البرمجي الاتي‎ 

*Code(22) 
print "C","perl","python"; 


عندما يتم تنفيذ هذا المقطع فأن الناتج من عملية تنفيذه تكون کال في الشكل التوضيحي المدرج أدناه 


Figure(12) 


تجدر الاشارة الى أن فعالية هذا المتغير تكون فقط على جملة الطباعة اي فقط على جملة ال ذم 
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12- 
*Code(23) 


کو ا ا کو ا ی 
*Code(24)‏ 


والان اذا تم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 


Figure(13) 
13- 
*Code(25) 


يكون التمشل البرمجي لهذا المتغير الخاص في لغة البيرل هو كما بلي من خلال المقطم البرمجى الات 
*Code(26)‏ 


أما الأن اذا تم تنفيذ ١‏ لمقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ تكون كما يلي من خلال الشكل التو ضيح 
الاتي 


Figure(14) 
60 تكون الوظيفة البرمجية التي يقوم بهذا المتغير الخاص في لغة البيرل هي انه يقوم بعرض طول الصفحة والرقم‎ 
هو الحالة الافتراضية للمتغير‎ 
واذا ما تم القاء نظرة على الملف الذي يحمل الاسم هج سيلاحظ ان تركيبه هو كما يلي في الشكل أدناه‎ 
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spawn is perl programmer 
, storm is c programmer 
striky is python programmer 


striky is python programmer 
storm is c programmer 
spawn is perl programmer 


س یم ٹیا طط ہا چ لن 


Figure(15) 
14 يلاحظ ان الملف اعلاه هو فعلا يتكون من سبعة اسطر فقط لذا كان عدد الاسطر التي تحمل الرقم 60 في ال‎ 


14- 
*Code27) 


$? | 


يكون التمتيل البرمجي لهذا المتغير في لغة البيرل كما يلي من خلال المقطع البرمجي أدناه 


*Code(28) 
system "1s -A /home/spawn & konsolee"; 
print "The Error is:-",$?,"\n"; 


عندما يتم تنفيذ المقطع البرمجي اعلاه فان الناتج من عملية التنفيذ يكون كما يلي من خلال الشكل التو ضيح أدناه 


Figure(16) 
من الممكن ملاحظة انه في المقطع البرمجي الخاص بهذا المتغير تم استعمال دالة ال هاورو وتم استعمال مدخلين‎ 
معها وكانت قيمة المدخل صحيحة و المدخل الاخر كان ذو قمية خاطئة لذا عندما تم التنفيذ كان المدخل الاول صالح‎ 
لذا تم تنفيذه وتم الحصول على ناتج هذا الامر ولكن المدخل الثاني كونه متغير خاطئ هنا يدخل دور هذا المتغير‎ 
كونه متغير خاطئ فقد قام هذا المتغير باعطاء المستخدم رقم الخطأ الخاص بهذه العملية التي تم تنفيذها‎ 


WaRRiOr Of Th3 PaSt C3NtUriES P3rL SpEcial VariablEs 


Figure(17) 


15- 
*Code(29) 
5) 


یکون التمثيل البرمجي لهذا النوع من المتغيرات في لغة البيرل كما يلي من خلال المقطع البرمجي أدناه 

*CodeĞ30) 
print "Hi i am a linux user and my GID is ",$),"\n"'; 
والان اذا قام المستخدم بتنفيذ السطر البرمجي أعلاه فأنالناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل‎ 


Figure(18) 
تكون الوظيفة البرمجية التي يقوم بها السطر البرمجي اعلاه هي انه يظهر ل[ مuهإ6 م1۷†ءمE۴ للمستخدم عندما‎ 
يقوم بتنفيذ هذا السطر البرمجي‎ 


16- 
*CodeĞ0) 
5 


تكون الوظيفة البرمجية التي يقوم بهذا المتغير الخاص اعلاه هي انه يقوم بإظهار ال 15 R1 Group‏ العملية 
الحالية التي يتم العمل عليها 
-17 
*CodeĞ1)‏ 
5$ 
يكون التمثيل البرمجي لهذا المتغير في لغة البيرل هو كما يلي المقطع البرمجي الاتي 
*CodeG2)‏ 
print "The current PID of this process is:-",$$,"\n";‏ 


عندما يقوم المستخدم بتنفيذ المقطع السطر البرمجي فأن الناتج من عملية التنفيذ تكون كما يلي من خلال الشكل 


Figure(19) 


عندما يقوم المستخدم بثنفيذ السطر البرمجي اعلاه فان الناتج من عملية التنفيذ سوف تكون اظهار رقم فقط وهذا 
الرقم هو معرف العملية او (لإم) 14 ووععمإم للعملية التي يتم العمل عليها 
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-18 
*CodeG3)‏ 
<$ 
يكون التمتيل البرمجي لهذا المتغير في لغة البيرل كما يلي من خلال المقطع البرمجي أدناه 
*CodeG4)‏ 
print "The real UID of this process is:-",$<,"\n";‏ 


عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ ستكون كما يلي من خلال الشكل الاتي 


Figure(20) 
يقوم هذا المتغير عندما يتم تنفيذه بأظهار ال لزن اهمع للمستخدم‎ 


-19 
*CodeG5)‏ 
>9 
التمثيل البرمجي لهذا النوع من المتغيرات يكون كما يلي من خلال المقطع البرمجي الاتي 
*CodeĞ6)‏ 
print "The Effective UID of this process is:-",$>,"\n";‏ 


وعندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي في الشكل أدناه 


Figure(21) 
20- 
*CodeG7) 
5J; 
يكون التمثيل البرمجي لهذا المتغر في لغة البيرل كما يلي من خلال المقطع البرمجي أدناه‎ 
*CodeGs8) 
print "The version number of this perl interpreter is:-",$],"\n"; 


ناتج تنفيذ هذا المقطع اعلاه هو كما يلي من خلال الصورة أدناه 


Figure(22) 


21- 

*CodeĞG9) 
go 
يكون التمتيل البرمجي لهذا المتغير في لغة البيرل كما يلي من خلال المقطع البرمجي ادناه‎ 
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*Code(d0) 
print "This version copy of perl interpreter is running under $^0 operating system"; 
عندما يتم تنفيذ المقطع البرمجى أعلاه فأن آلناتج من عملية التنفيذ سوف تكون كما يلى من خلال الشكل أدناه‎ 


Figure(23) 
تكون الوظيفة البرمجية التي يقوم بها المتغير أعلاه هي انه يقوم بذكر اسم نظام التشغيل الذي يتم العمل عليه وقد‎ 
Linux gy وفي هذه الحالة کان النظام‎ 


22- 
*Code(d1) 
SAW 
*Code(42) 


print "the current warring status now is $AW","\n"; | 


الان لو تم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(24) 
*Coded3) 
print "the current warring status now is $AW","\n"; | 


الان لو تم تنفيذ السطر البرمجي اعلاه فان الناتج من عملية التفيذ سوف تكون كما يلي في الشكل ادناه 


Figure(25) 
من الامور التي تجذب الانتباه بخصوص عمل هذا | لمتغير هو انه تم تنفيذه مرتين وفي كل من المرتين التي تم تنفيذه‎ 
فيها تم أعطاء نتيجة مختلفة السبب في ذلك هو ان هذا المتغير يحمل نوعين من القيم‎ 


1. )0( 
2. )1( 


الحالة الاولى : عندما يظهر للمستخدم الرقم 0 عند التنفيذ فهذا يعني ان وضع التحذير غير مفعل 
الحالة الثانية : عندما يظهر للمستخدم الرقم 1 عند التنفيذ فهذا يعني ان وضع التحذير قد تم تفعيله 
ملاحظة:- 
يتم تفعيل وضع التحذيرات في لغة البيرل كما يلي 
*Code(d4)‏ 
perl -w |‏ 


23- 
*Code(d5) 
@INC | 
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يعتبر هذا المتغير من المتغيرات المعروفة في لغة البيرل ويكون تمتيله البرمجي كما يلي من خلال المقطع البرمجي 
ادناه 

*Code(46) 
print @INC,"\n"'; | 
ناتج تنفيذ هذا السطر البرمجى هو كما يلى من خلال الشكل أدناه‎ 


Figure(26) 
هذا الايعاز البرمجي عندما يتم تنفيذه يقوم بأظهار المسارات التي تحتوي على مقاطع البيرل البرمجية وغالبية هذه‎ 
المقاطع هي المقاطع البرمجية التي تحتوي على‎ 
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تعتبر لغة البيرل من اللغات التي توفر تقنية الروتينات الفرعية المعرفة من قبل المستخدم وهذه الروتينات 
الفرعية من الممكن ان يتم برمجة الرويتن الفرعي في أي مكان من البرنامج الرئيسي ومن الممكن ان يتم ومن 
الممكن ان يتم جلب الروتينات الفرعية من ملفات اخرى عن طريق الدوال 


1. do 
2. use 
3. require 
ومن الممكن ان يتم استدعاء الروتين الفرعي اكثر من مرة داخل البرنامج الرئيسي وفي كل مرة سوف يتم استدعاءه‎ 
فيها سوف يقوم بنفس المهمة التي يقوم بها اذ من الممكن ان يتم اعتبار الروتيات الفرعي هي‎ 
user defined function 
Sub Routine declaration 


يكون التعريف العام للروتينات الفرعية في لغة البيرل كما يلي من خلال المقطع البرمجي ادناه الذي يوضح الالية 
التي على المستخدم اتباعها فيما لو اراد ان يقوم بعلمية تعريف لروتني فرعي 


*Code(d47) 
sub spawn { 


يوضح المقطع البرمجي اعلاه الاسلوب الذي يتم أتباعه في لغة البيرل من أجل كتابة روتين فرعي بسيط 


Figure(27) 
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The Basic rule of perl sub routine 


-1 
sub‏ 
يجب ان يتم استعمال الدالة التي تحمل الاسم اناوفهذه الدالة هي الدالة المسؤولة عن تعريف الروتين الفرعي وفي 
كل مرة يرغب مبرمج بيرل ان يعرف روتين فرعي عليه ان يبدأ بهذه الدالة 
-2 
XXX(name) ٣‏ 
بعد أن ان يتم استعمال دالة التعريف الخاص بتعريف الرويتن الفرعي على المبرمج في هذه الحالة اختيار اسم 
للورتين الفرعي الذي سيتم العمل عليه 


9 
القوس الذي يشير الى انتهاء الفقرة التعريفية وبعد كتابة القوس سوف يبدأ العمل على المحتوى البرمجي لهذا 
الروتني الفرعي 
-4 
CONTEXT‏ 
محتوى الروتين الفرعي اي جسم الروتين البرمجي 
1 


انتهاء الروتين الفرعي 

The First routine 

المقطع البرمجي ادناه سوف يكون ابسط روتين فرعي في لغة البيرل 
*Code(48)‏ 
sub perl {‏ 
print "HeLLo World \n";‏ 
1 
&perl(;‏ 


الان لو تم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي 


Figure(28) 
How to execute 
يكون تنفيذ الروتينات الفرعية في لغة البيرل بالطريقة الاتية‎ 
أولا :- يتم كتابة علامة (&) في بداية سطر التنفيذ‎ 
ثانيا :- يتم كتابة اسم الروتين الفرعي بعد علامة (&) كخطوة ثانية‎ 
ثالثا :- يتم كتابة الاقواس المزدوجة الفارغة وعندها عند الانتهاء من هذا سيتم تنفيذ البرنامج‎ 
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Arguments 
توفر لغة البيرل طرق لكي يتم تمرير المتغيرات او المعاملات الى الروتين الفرعي‎ 
الطريقة الاولى‎ 
*Code(d9) 
$a,$b=(10,15); 
sub perl { 


if ($a > $b) { 

print " A is bigger than Bl\n"; 
j} 
else { 

print "B is bigger than Al\n"; 
j} 
1 
&perl(O; 


الآن لو نتم تنفيذ المقطع البز سحي المذكرر أعلاة ان التاتج من عملية اننيد سرف تكون كما بلى من خلال الشكل 


ال ان 
Fıigure(29)‏ 
توفر لغة البيرل أمكانية التعامل مع متغيرات تكون هذه المتغيرات من موقع خارج الروتين الفرعي اي في داخل 


Private Variables in perl subroutine 


يلاحظ من المقطع البرمجي السابق ان المتغيرات التي تم تعريفها في المقطع البرمجي هي عبارة عن متغيرات تم 
تعريفها خارج جسم الروتين الفرعي أي ان المتغيرات عرفت في جسم البرنامج الرئيسي وهذا يعني ان هذه 
المتغير ات متاحة في البرنامج في اي مکان لذا کان لابد من اتباع طريقة لتعريف المتغيرات وهذه المتغيرات التي يتم 
تعريفها هي متغيرات خاصة بالروتين الفرعي وهذه العملية تتم كما يلي من خلال المقطع البرمجي ألاتي 
*Code(50)‏ 
$a= "We Are Perl Programmers";‏ 
sub perl {‏ 
my ($a,$b) = (10,15);‏ 
($a,$b) = (@ J);‏ 
if ($_[O] > $_[11){‏ 
print "A is bigger than B\n"';‏ 
1 
else {‏ 
print print "B is bigger than Al\n"';‏ 
1 
1 
&perl(;‏ 
print $a, "\n";‏ 
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ألان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 


التوضيحي أدناه 


Figure(30) 


يلاحظ من المقطع البرمجي اعلاه انه هذا البرنامج مكون من روتين فرعي يحمل الاسم 1إمم واضافة الرويتن 
الفرعي يوجد في البرنامج متغير يحمل الاسم وله قيمة لغة البيرل تتعامل مع المتغير الاول الواقع خارج نطاق 
الروتين الفرعي بصورة مستقلة عن المتغير الاخر الذي يحمل الاسم ه8 والذي يقع داخل كتلة الروتين الفرعي 
هذه العملية تتم من خلال استعمال الدالة التي تحمل الاسم 

*Code(51) 
my | 


Figure(31) 
أن الدالة المسؤولة عن خصخصة المتغيرات في داخل الروتين الفرعي وجعلها تعود للروتين الفرعي فقط هي دالة‎ 
ال برص وهكذا لو تم استعمال جملة الطاعة مع المتغير ولفان القيمة التي سوف يقوم بطباعتها هي جملة‎ 
we are perl programmers 


The Other Way 


ذكر في الصفحات السابقة ان الطريقة التي يتم تنفيذ روتين فرعي هي كما يلي 
*Code52)‏ 
sub perl {‏ 
print "Hello World\n";‏ 
1 
&perl(O;‏ 


وتكون النتيجة هي كما يلي في الشكل أدناه 


Figure(32) 
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Figure(33) 
وضحت الطريقة السابقة اسلوب تنفيذ الروتينات الفرعية في لغة البيرل باستخدام الطريقة التقليدية التي تم التطرق‎ 
اليها ولكن من الممكن ان يتم تنفيذ الروتين الفرعي بطريقة اخرى وهي‎ 


*Code(53) 
sub perl { 
print "Hello World\n 


1 
perl;‏ 
عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي 
Hello World‏ 
Figure(34)‏ 
اي ان الروتين الفرعي من الممكن ان يتم تنفيذه لو قام المبرمج بالغاء كل من الاقواس المزدوجة() وعلامة الج 
وعندما يتم التنفيذ سيتم الحصول على نفس الناتج اي يتم تنفيذ الروتين الفرعي بصورة صحيحة 
ولكن تجدر الاشارة الى ان وجود او عدم وجود علامة ال ج في الروتين الفرعي ليس اختياريا كما قد يظن 
المبرمج في هذه الحالة لانه توجد بعض الحالات التي يكون وضع هذه العلامة اي علامة ال& ضروري جدا لكي 
يتم تنفيذ الروتين الفرعي بالصورة الصحيحة ومن هذه الطرق الطريقة الاتية 
*Code(54)‏ 


$a="'perl programmer"; 

$b= (length($a)); 

print $b,"\n 

sub length { 

print "Hello world through perl subroutine\n' 
1 
&length; 


الان لو تم تنفيذ الروتين الفرعي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل أدناه 


Figure(35) 
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Figure(36) 
وضح الشكل اعلاه أن لغة البيرل تملك القدرة على التعامل مع هكذا نوع من المواقف البرمجية حيث ان الدالة‎ 
الارلی التي تحمل الاسم‎ 


*Code§S) 
length | 


هي الدالة البرمجية التي تكون مسؤولة عن حساب الطول للسلسة النصية التي تحمل الاسم 


“€ ode(56) 


perl programmer 


وعندما يتم تنفيذ هذه الفقرة يتم حساب طول السلسة النصية اعلاه 
اما بالنسبة للروتين الفرعي الذي يحمل الاسم 

*Code(§7) 
length | 
فأنه عبارة عن روتين فرعي بسيط تكون الوظيفة البرمجية التي يقوم بها هو طباعة سلسلة نصية اما بالنسبة لطريقة‎ 
التنفيذ ففي هذه الحالة يكون مبرمج البيرل مجبرا على استخدام العلامة ي في هذه الحالة لانه لو لم يقم باستخدامها‎ 
في هذه الحالة فأن لغة البيرل سوف تتعامل مع الموقف كما لو ان المبرمج في هذه الحالة يريد ان يقوم بعملية‎ 
استدعاء لدالة الطول ولكن عندما يتم وضع العلامة & فأن لغة البيرل سوف تكون على علم انه المبرمج في هذه‎ 
الحالة يتعامل مع روتين فرعي بهذا الاسم‎ 


Anonymous Sub Routine 


لغة البيرل توفر نوع اخر من الروتينات الفرعية وهذا النوع من الروتينات الفرعية كما هو معنون أعلاه تدعى 
بالروتينات المجهولة او الروتينات الخالية من الاسم وذلك لان هذه الروتينات فعلا تحمل اي اسم لها ويكون التمثيل 
البرمجي لهذا النوع من الروتينات الفرعية في لغة البيرل كما يلي من خلال المقطع البرمجي أدناه 


*Code68) 

$perl = sub { 

print "We Are Perl Programmers" 
9 

&$perl; 


ألان عندما يتم تنفيذ المقطع البرمجي اعلاه فأن الناتج من المقطع البرمجي أعلاه سوف يكون كما يلي من خلال 
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الشكل التوضيحي ادناه 


we Are Perl Programmers 


Figure(37) 


perl = sub { 

print "We Are Perl Programmers" 
1 
&Sperl; 


Figure(38) 
هكذا يكون التمثيل البرمجي للروتينات الفرعية المجهولة في لغة البيرل ولكن على المبرمج ان يلاحظ الفقرة التالية‎ 
وهي وجود الفارزة المنقوطة بعد الانتهاء من كتابة البرنامج ويجب وضعها بعد أغلاق قوس الانتهاء وبدونه لن يتم‎ 


*Code69) 


$perl = sub { 


print "We Are Perl Programmers" 


&$perl; 


وكناتج لهذه العملية الناتج سوف يكون كما يلي 


= sub { 
"we Are Perl Programmer s 


[spawn@localhost ~]% 


Figure(39) 


يوضح الشكل أعلاه أنه في هذه الحالة لم يتم وضع الفارزة المنقوطة لذا في هذه الحالة عندما تم تنفيذ البرنامج كانت 
المحصلة هي عدم الحصول على النتيجة المرغوبة والمطلوب من الروتين الفرعي أن يقوم بها 
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The return function 
يتم أستعمال دالة ال ۲نامع كدالة تعيد عنصر او مصفوفة في الروتين الفرعي ومن الممكن ان یتم تمٽیلها برمجیيا‎ 
كما يلي من خلال المقطع البرمجي أدناه‎ 


*Code(60) 

@perl = perl (10,15); 
print "@perl"; 

sub perl { 

my ($a,$b) = (10,15); 
($a,$b) = (@_); 
Sc=$a+9b; 

return ($a,$b,$c) 


} 


أذا تم تنفيذ المقطع البرمجي أعلاه فأن الناتج سوف يكون كما يلي من خلال الشكل التوضيحي أدناه 


Figure(40) 


يحتوي السطر الاول من البرنامج على مصفوفة برمجية تحمل الاسم 
*Code(61)‏ 
@perl‏ 
وتكون هذه المصفوفة تتعامل بصورة مباشرة مع الروتين الفرعي الذي يحمل الاسم 
*Code(62)‏ 
perl‏ 


Figure(41) 
اما عن الوظيفة البرمجية التي يقوم بها الروتين الفرعي هي انه يتعامل مع متغيرين ومن تم يتم تمريرهم الى‎ 
استدعاءِ دالة‎ 


*Code(63) 


return 


التي تعيد قيم المتغيرات الثلاثة كما قد وضح الشكل الذي يحمل الرقم 40 
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ومن الممكن ان يتم أستعمال دالة الارجاع مرإں†مإ بطريقة أخرى وهذه الطريقة متمثلة كما يلي من خلال المقطع 
البرمجى أدناه 
*Code(64) ٠‏ 
sub perl {‏ 


return "Hello everyone.\nHere We Are Perl Programmers\n"; 


1 
print &perl; 


وناتج تنفيذ المقطع البرمجي أعلاه كما يلي في الشكل الاتي 


Figure(42) 
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Usıng the caller) Function 1n Subroutines 


من خلال هذه التقنية أعلاه فعندها من الممكن ان يكون في متناول المبرمج معلومات كاملة عن الروتين الفرعي 
الذي يتم التعامل معه و التمثيل البرمجي لهذه العملية يكون كما يلي من خلال المقطع البرمجي أدناه 

*Code(65) 
use Data:: Dumper; 
sub Info { 
my @ınfo = caller(0); 
print Dunper \@ınfo; 
ٍ 


Info; 


وعندما يتم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(43) 
الشكل البرمجي أعلاه يقدم معلومات عن الروتين الفرعي الذي يتم التعامل معه و المعلومات التي يغطيها هي‎ 


1- 
$Spackage 


namespace‏ packageعندما‏ تم الاستدعاء 
-2 
Sfilename‏ 
اسم الملف الذي تم الاستدعاء منه بعبارة اخرى لو كان المقطع البرمجي اعلاه مخزون في ملف عند التنفيذ سيتم 
عرض اسم الملف المخزون فيه 
-3 
line‏ 


رقم السطر الذي يحمل الفقرة البرمجية عن تنفيذ الروتين الفرعي 
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-4 
$Ssubroutine‏ 
اسم الروتين الفرعي الذي يتم التعامل معه 
-5 
$Shasargs‏ 
هل يحتوي الروتين الفرعي الذي يتم التعامل معه على متغيرات 
-6 
$Swantarray‏ 
القص ةة دا 
المتغير الذي يكون من نو ع إوإوء؟ = 0 
ها = غير معرفة 
2 
$evaltext‏ 
اذا كان المقطع البرمجي هو عبارة عن() )عاط 1جع 
-8 
$is_require [‏ 
سوف تکون القیمة مں ]لو کان قد صنع بواسطة میں أو ع1۲٩٥۲‏ 
More Details‏ 


من الممكن ان يتم تطبيق التقنية السابقة مع اضافة بعض التفاصيل الاضافية الاخرى وهي كما يلي من خلال المقطع 
البرمجى أدناه 


*Code(66) 

package spawn; 

use Data:: Dumper; 
sub Info { 

my @info = caller(0); 
print Dumper \@info; 
Info; 


وآلان اذا تم تنفيذ المقطع البرمجي أعلاه فان الناتج من عملية التنفيذ سوف تكون كما لى من خلال الشكل التالي 
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qure(44) 


r: 
a 


2 


الارن م اون ران بحل ااي 
*Code(67)‏ 


spawn | 


يشير الى اسم الحزمة التي يحتويها الملف وستتم مناقشة هذه الفقرة لاحقا 


تجدر الاشارة الى انه لو تم تنفيذ البرنامج من برنامج الصدفة بالطريقة الاتية 
*Code(68)‏ 


perl sub.pl | 


عندها سوف يلاحظ المبرمج حدوث تغيير في ناتج الامر وهذا التغيير هو الاتي 


Figure(45) 
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الفقرة الواقعة في المستطيل الاحمر تشير الى اسم الملف الذي تم استدعاء الملف منه وهو الملف الذي يحمل الاسم 
*Code(69)‏ 
sub.pl‏ 


File Edit View Tools Settings Help 
ELE 
lse Data::Dumper; 
sub Info { 
my (info = caller(0); 
print Dumper Mginfo; 


1 


Info; 


Figure(46) 
كما تجدر الاشارة الى فقرة اخرى في الحالة التي يتم تنفيذ البرنماج بها من خلال الصدفة هي انه يتم اعتماد الحزمة‎ 
الافتراضية هي كحزمة العمل وليس الحزمة التي يحتويها البرنامج‎ 


Local Function 
تحتوي لغة البيرل على دالة اخرى تكون هذه الدالة من الدوال التي لها اسلوب خاص بالتعامل مع المتغيرات التي‎ 
تحتويها الروتينات الفرعية والدالة التي يتم التكلم عنها الان هي الدالة التي تحمل الاسم‎ 
*Code(70) 
local 
ویکون التمثيل البرمجي لهذه الدالة كما يلي من خلال المقطع البرمجي الاتي‎ 
*Code/lD) 
my $x = 10; 
$_ = "perl"; 
{ 
my $x = 20; 
local $_ = "python"; 
perl(; 
j 
perlQ0; 
sub perl{ 
print "\$x is $x\n"'; 
print "\$_ is $_\n"; 
j 


والان عندما يتم تنفيذ المقطع البرمجي اعلاه فان الناتج من عملية التنفيذ تكون كما يلي من خلال الشكل الاتي 
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Figure(47) 


اوجز الشكل التوضيحي أعلاه الكيفية التي تم من خلالها استعمال الدالة انفة الذكر وتكون الوظيفة البرمجية التي 
تقوم بها هذه الدالة هي أعطاء قيمة برمجية للمتغير في داخل الروتين الفرعي الذي يعود اليه اي القيمة التي يحملها 
هذا المتغير داخل الذي تم استعمال دالة ال [وعه[ معه هي قيمة وقثية فقط و الشكل اعلاه وضح الكيفية 

وعلى المبرمج دوما ان يقوم باستعمال دالة ال myلانù‏ هذه الدالة تعتبر من اسرع واكثر أمانا من الدالة السابقة 


When to use local and my 
يذكر المبرمج وuمنصه( «هوهل-۲)kه1 طريقة فعالة وهذه الطريقة هي‎ 


Don't use local. Always use my. 


Figure(48) 
Passing References to a Subroutine 


تعتبر الطريقة اعلاه هي الطريقة التي من خلالها يتم تمرير الرفرنس في لغة البيرل الى الروتين الفرعي ولاحقا في 

ا هي تقنية الرفرنس في لغة البيرل يتم تمتثيل هذه الطريقة في لغة البيرل كما يلي ومن خلال 
المقطع الاتي 

*Code(/2) 

my $a = 5 

perl(\$a); 

print $a; 

sub perl { 

print $$reference; 


} 


عندما يتم تنفيذ المقطع البرمجي اعلاه فأن النتاج من عملية التنفيذ سوف تكون كما يلي 


Figure(49) 
لايوجد شئ مميز او خاص بالطريقة السابقة الذكر ولكن تعتبر اسلوب برمجي اخر من الاساليب التي تحتويها لغة‎ 
البيرل التي يتم من خلالها التعامل مع البيانات‎ 
تجدر الاشارة‎ 
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Figure(50) 


Passing Arrays to subroutine 


توفر تقنية الروتينات الفرعية في لغة البيرل للمبرمج أمكانية التعامل مع المصفوفات ويكون أسلوب تمرير 
المصفوفات في لغة البيرل كما يلي من خلال المقطع البرمجي ألاتي 
*Code/3)‏ 
$message = "Testing";‏ 
@count = ("python", "perl", "C");‏ 
passing ($message, @count);‏ 
sub passing {‏ 
$message = shift;‏ 
print "@_";‏ 
1 
testing;‏ 
عندما يتم تنفيذ المقطع البرمجي أعلاه فان الناتج من عملية التنفيذ أعلاه سوف تكون كما يلي من خلال الشكل الاتي 


Figure(51) 
يحتوي المقطع البرمجي أعلاه على نوعين من المتغيرات وكما هو موضح في المقطع البرمجي البرمجي انه يحتوي‎ 
1-Scalar 
2-array 


وتم معاملة المتغير الاول مع الدالة ا#زطء لكي يتم أخذ القيمة التي تحتويها وهي قيمة سلسلة نصية ومن ثم يتم 
طباعة مصفوفة المتغيرات اي المصفوفة الافتراضية في داخل الروتين الفرعي وهكذا عندما تتم عملية الطباعة سيتم 
عرض كافة العناصر التي تحتويها المصفوفة تعتبر هذه الطريقة من افضل و اسهل الطرق التي يتم من خلالها 
تمرير المصفوفات الى الروتين الفرعي 
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Passing hashes to subroutine 


ر رن رم اع اا سے کیرات ا رن ن و ا کا ان هات اران ا 
البيرل توفر للمبرمج امكانية التعامل مع هذا النوع من المتغيرات في لغة البيرل ويكون التمثيل البرمجي لهذا النوع 


*Code(74) 

hash = ( 
Spawn => "perl", 
Storm => "€", 
Striker => "Python", 


$message = "perl"; 

testing ($message,é6hash); 
sub testing { 

($message, ocount) = @_; 
print "@_","\n"; 


وألان عندما يتم تنفيذ الروتين الفرعي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 
التوضيحي ألاتي 
perl spawn perl striker Python Storm Cl‏ 
Figure(52)‏ 
التقنية التي تم أتباعها مع هذا النوع من المتغيرات هي الطريقة ذاتها التي تم أتباعها مع المصفوفات 
Prototypes‏ 


أل وممراهاهإمط في لغة البيرل هي ليست ذات ال وعمراهاهإم التي تحتويها اللغات البرمجية حيث يتم استخدام 
أل وممراهاهإم في اللغات البرمجية الاخرى من اجل تعريف الاسم ونوع المعاملات الى الروتين الفرعي ولكن 
تكون ال وعمراهاهإم في لغة البيرل تعطي للمبرمج امكانية تعريف نوع المعاملات التي سيتم تمريرها الى الروتين 
الفرعي اي من خلال ال وممراهاهإم في لغة البيرل يكون الروتين الفرعي على معرفة بنوعية المتغيرات التي 
سيكون عليه التعامل معها ويكون التمثيل البرمجي لهذه التقنية البرمجية كما يلي من خلال المقطع البرمجي الاتي 
*Code(75)‏ 
sub perl ($$) {‏ 
if (@_ == 2){‏ 
print "Good,Two Arguments" ,"\n";‏ 


} 


else { 

print "Bad,Any number of args but not two","\n"; 
1 

perl(10,15); 


عندما یتم تمثيل | لمقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 
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P3rL SuBROuTinEs 


Figure(53) 


Figure(54) 
الاسلوب البرمجي الذي تم أتباعه من قبل لغة البيرل في هذه التقنية هي أن المقطع البرمجي أعلاه تمت برمجته لكي‎ 
يقوم باستقبال متغيرين فقط وهذين المتغيرين هما لابد ان يكونان على‎ 


1-Scalar 
وأذا تم ادخال اكثر من متغيرين فعندما يتم تنفيذ المقطع البرمجي سوف يتم الحصول على خلل برمجي لأن الروتين‎ 
الفرعي أعلاه تمت برمجته لكي يقوم بالتعامل مع متغيرين فقط‎ 
*Code(/76) 
sub perl (89) { 1 
if (@_ == 2)1 
print E Twc 
else { 
print "Bad,Any number of args but not two",'"\n"; 
1 
perl('perl","python"); 
عندما تم ت تصميم المقطع البرمجي اعلاه لكي يستقبل متغيرين فقط فهذا لايعني ان نوع المتغيرات التي يتعامل معها‎ 
هي لابد ا تكرن ر ك رق ا ن لمكن ن ك الان م قرات ات فة وعندما يتم تنفيذ‎ 
المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي‎ 


Figure(55) 


o Arguments" ,"\n"; 
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يمكن تعريف تقنية الرفرنس في لغة البيرل بأعتبار الرفرنس هو قطعة من البيانات تخبر المبرمج عن موقع قطعة 
أخرى من البيانات في لغة البيرل الرفرنس يكون دائما عبارة عن 
*Code77)‏ 
scalar‏ 
دائما تكون الرفرنس في لغة البيرل على الصيغة البرمجية أعلاه ولكن هذا لا يعني ان البيانات التي يشير اليها يجب 
أن تكون بهذه الصيغة اللغات البرمجية الاخرى مثل لغة ال++C,0‏ تحتوي على نفس هذه التقنية ولكن تحت مسمى 
أخر وهو مسمى المؤشرات او وإمامذهم 


How To make reference 
يتم صناعة الرفرئس في لغة البيرل من خلال استعمال الرمز‎ 
*Code(78) | 
۱ 
حيث يتم وضع العلامة اعلاه قبل المتغير المطلوب‎ 


Reference to scalar 


توفر تقنية الرفرنس في لغة البيرل امكانية التعامل مع المتغيرات التي تكون من النوع أعلاه ويكون تمثيل هذه 


العملية برمجيا كما يلي 
*Code(79)‏ 
$a="programming-fr34ks";‏ 
$a_ref=\$a;‏ 
I=‏ 
الخطوة البرمجية الاولى هي عبارة عن متغير برمجي عادي يحمل قيمة سلسلة نصية 
2 


الخطوة البرمجية الثانية هي عبارة عن متغير يحمل قيمة رفرنس للقيمة الاولى 
ويتم تنفيذ المقطع البرمجي أعلاه لكي يتم الوصول الى القيمة البرمجية المخزونة في داخل المتغير الثاني كما يلي 
من خلال المقطع البرمجي أدناه 
*Code(80)‏ 
$a="programming-fr34ks";‏ 
$a_ref=\$a;‏ 
print $a_ref;‏ 


يكون ناتج تنفيذ المقطع البرمجي أعلاه عندما يتم التنفيذ كما يلي من خلال الشكل التوضيحي ألاتي 


Figure(56) 
*Code(61) 
$a="programming-fr34ks"; 
$a_ref=\$a; 
print $$a_ref; 
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ما الان اذا تم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 
التوضيحي ألاتي 


Figure(57) 


Figure(58) 


وضح المقطع البرمجي كيفية التعامل مع تقنية الرفرنس واسلوب اسنادها الى المتغيرات البرمجية التي تكون من 


نوع 
*Code(82)‏ 


scalar 


Reference to arrays 


تقنية الرفرنس في لغة البيرل تمكن المبرمج الذي يتعامل معها على امكانية التعامل مع المتغيرات التي تكون من 
نوع المصفوفات ويكون التمتيل البرمجي للتعامل تقنية الرفرنس مع المتغيرات التي تكون من نوع المصفوفات كما 
يلي من خلال المقطع البرمجي ألاتي 
*Code(83)‏ 
@array = ("Striker","Storm","Spawn");‏ 
Şarray_ref= \@array;‏ 
print $$array_ref[0],"\n";‏ 


والان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 


التوضيحي الاتي 
striker‏ 


Figure(59) 


Figure(60) 
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P3rL ReFerEncEs 
Reference to hashes 


توفر تقنية الرفرنس في لغة البيرل للمبرمج أمكانية التعامل مع المتغيرات التي تكون من نوع ال 
*Code(64)‏ 


hash 


ای ا ع ا 
*Code(63)‏ 


%ohash = ( 


Storm => "C programmer", 
Striker => "python programmer", 
Spawn 


=> "perl programmer", 
$hash_ref = \%ohash; 


print $$hash_ref {"Storm"}; 


والان عندما يتم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي 


Figure(61) 


Figure(62) 
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Anonymous data 


د[ 
Anonymous allay Composer‏ 


يكون التمثيل البرمجي لهذه التقنية كما يلي من خلال المقطع البرمجي الاتي 
*Code(66)‏ 


Şarrayref = [storm, striker,spawn]; 
print $arrayref-> [0]; 


وآلان اذا تم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(63) 


$arrayref 


storm striker spawn 


Figure(64) 
عندما يكون المبرمج في حاجة الى ان يقوم بتعريف رفرنس الى مصفوفة مجهولة يتم استعمال الدوال المربعة الشكل‎ 
في عملية برمجتها وعملية استدعاء او طباعة العناصر التي تحتويها يتم من خلال استعمال اسم المتغير ومن ثم‎ 
More complex Stuff 


*Code(67) 


$arrayref = [ProgrammingFr34ks,[storm, striker,spawn] ]; 
print $arrayref-> [1][2]; 


ألان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(65) 
ويكون الاسلوب الذي تتعامل معه لغة البيرل مع هذا المقطع البرمجي الذي تم وضعه في الاعلى كما يلي من خلال‎ 


المقطع التخطيطي الاتي 
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$arrayref 
محتويات العنصر الأول‎ 


ProgrammingFr34ks storm striker spawn 


Fıgure(66) 


في المقطع البرمجي أعلاه كان العنصر الاول الذي يحتويه هو عبارة عن عنصر عادي ولكن النقطة التي قد تسبب 
بعض الارتباك هي في العنصر الثاني هي يعتبر العنصر الثاني هو عبارة عن عنصر في مصفوفة ولكن يتم التعامل 
تكون من هذا النوع 


9 
Anonymous Hash composer 


يكون التمثيل البرمجي لهذه التقنية في لغة البيرل كما يلي من خلال المقطع البرمجي أعلاه 
*Code(68)‏ 
$hashref = {‏ 
Spawn => "perl programmer",‏ 
Storm => "C programmer",‏ 
Striker => "python programmer",‏ 
} 
print $hashref->{Spawn};‏ 
والان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال من الشكل 


perl programmer’ 


Figure(67) 
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$Shashref 


Spawn perl programmer | Jيٺلl ازوج‎ 


Storm C programmer الزوج الثاني‎ 
Striker python programmer] الزږ ج اة‎ 


Figure(68) 
A pseudo-hash 


توفر نوع أخر من المركبات البيانية(عإںاعںاء هاهل) ويكون التمثيل البرمجي الخاص بها يكون كما يلي من خلال 
المقطع البرمجي الاتي 
*Code(89)‏ 
$pseudo_hash = [ {a=>1,b=>2,c=>3}, "val a", "val b", "val c" J];‏ 
print $pseudo_hash-> [1];‏ 
print "\n"‏ 


يكون الناتج من عملية تنفيذ المقطع البرمجي أعلاه كما يلي من خلال الشكل الاتي 


val a 
Figure(69) 
وضح الجزء الاول منالمقطع البرمجي الكيفية التي يتم من خلالها الوصول الى العناصر التي يحتويها المركب‎ 
البياني لكن هذا الجزء قد وضح الكيفية التي يتم من خلالها الوصول الى العناصر التي المحتواة في هيكل المصفوفة‎ 
و التي تبدأ من العنصر الثاني حيث أن العنصر الارل من المركب البياني اعلاه له اسلوب خاص للوصول الى‎ 
البيانات التي يحتويها و المقطع البرمجي ادناه يوضح الطريقة التي يتم من خلالها الوصول الى العنصر الارل من‎ 
المركب البيانى اعلاه‎ 
*Code(90) ٠ 
$pseudo_hash = [ {a=>1,b=>2,c=>3}, "val a", "val b", "val c" J]; 
print hash->[0]->{"a"}D; 
print "\n 


الان عندما يتم تنفيذ المقطع البرمجي يكون ناتج التنفيذ كما يلي من خلال الشكل الاتي 


Figure(70) 
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$pseudo_hash | 


٠ | vala val b val c 


Figure(/71) 
أن اهم ما يميز المركب البياني اعلاه هو ان العنصر الاول الذي يحتويه لابد ان يكون متغير من نوع الهاش اي ان‎ 
المبرمج اذا كان يرغب في برمجة هذا النوع من المركبات البيانية ففي هذه الحالة لابد ان يكون العنصر الاول هو‎ 
هاش اما العناصر الاخر فهي تكون عناصر مصفوفة عادية ولكن العنصر الاول لابد من ان يكون هاش‎ 


Storing Data Structures 


توفر لغة البيرل للمبرمج أمكانية خزن التراكيب البيانية التي يتم العمل عليها حيث يمكن لمبرمج البيرل أن يقوم 
بخزن التراكيب البيائية على ملفات لكي يتم تسهيل العمل عليها وتتم هذه العملية من خلال استعمال احدى الموديلات 


البرمجية التي تقوم بهذه المهمة 
*Code@O1)‏ 
Storable |‏ 
ویکون التمثيل البرمجي لهذه العملية كما يلي من خلال المقطع البرمجي أدناه 

*Code@92) 
use Storable; 
%ehash = ( 

Spawn => "perl programmer", 

Storm => "C programmer", 

Striker => "Python programmer", 

J); 

$hash_ref = \%hash; 
store (\%6hash,"/home/spawn/aa.txt"); 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه يكون ناتج التنفيذ كما يلي من خلال الشكل التوضيحي أدناه 
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The file 
‘home/spawn/aa.txt 1s a 
binary, saving it will 


result in a corrupt file. 


i_i Do nat show this message again 


Figure(/2) 


. 
aa. txt - kK Wrıte 


File Edit View Tools Settings Hel 


E BE FE | OQ 


" New Open Save Save As Clase 
þpstO01 0112345678000000 
LIperl programmer] Spawn 
[IPython programmer Striker 
IC programmerl Storm 


Figure(73) 
عندما يتن تنفيذ المقطع البرمجي اعلاه فأن الناتج يكون كما يلي من خلال الشكلين السابقين حيث ان الشكل الاول هو‎ 
عبارة عن شكل توضيحي يخبر المبرمج من خلاله ان الان هو بصدد التعامل مع ملف ثنائي و الشكل الثاني هو‎ 
عبارة عن الشكل الذي يخبر المبرمج بمحتوى الملف الذي تم خزن الهاش في داخله‎ 


References to Subroutines 


تمكن لغة البيرل المبرمج من ان يتعامل مع المصادر والروتينات الفرعية حيث من الممكن ان يتم اخذ مرجع لروتين 
فرعي ويكون التمثيل البرمجي لهذه العملية كما يلي من خلال المقطع البرمجي ألاتي 
*Code®3)‏ 


sub perl { 
print "Here we Go \n"; 


Şşperl_ref = \&perl; 


المقطع البرمجي أعلاه يوضح الاسلوب البرمجي الذي يتم أتباعه من قبل لغة البيرل في أخذ مرجع او رفرنس 
لروتين فرعي 
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وطريقة الاستدعاء لهذه التقنية تمثل برمجيا في لغة البيرل كما يلي من خلال المقطع البرمجي اعلا 
*Code(94)‏ 
sub perl {‏ 
print "Here we Go \n";‏ 
1 
Şpperl_ref = \&perl;‏ 
&{$perl_ref};‏ 
$perl_ref->(0;‏ 
$perl_ref->($_);‏ 


يكون ناتج تنفيذ المقطع البرمجي أعلاه كما يلي من خلال الشكل الاتي 


Figure(/4) 
1 sub perl { 
2ã print "Here we Go în"; 
` 
4 Şperl_ref= \&perl; الطريقة الاولى لعملية الاستدعاء‎ 
5 &{Sperl_ref}: الطريقة الثانية لعملية الاستدعاء‎ 


û6 Sperl_ref-=(); 


7 perl _re2(% J); 


الطريقة الثالثة لعملية الاستدعاء 


Figure(/735) 
وضح المقطع البرمجي أعلاه الطريقة التي يتم من خلالها تنفيذ الروتين الفرعي الذي تم معاملته مع الرفرنس‎ 
وة ال الاق ار ال هن ا فن ال عا اتر انم فى الها اون ف اقا‎ 
الاسلوب الخاص بعملية الاستدعاء التي یرغب بها‎ 
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الحزم في لغة البيرل هي عبارة عن مقطع برمجي يتم التعامل معه من خلال ال ععوموعصهم الخاصة به 
كرون التعريفت العام الخزم في اة ازل من خلال اتال اله بر چيا ن اللوالن الب في ا ابول حبك ان 
هذه الدالة تقوم بهذه العملية وهذه الدالة هي 
*Code(935)‏ 
Package‏ 
هذه الدالة هي الدالة المسؤولة عن اخبار لغة البيرل انها الان بصدد التعامل مع حزمة برمجية ويكون التمتيل 
البرمجي للحزم في لغة البيرل كما يلي من خلال المقطع البرمجي الاتي 


*Code(96) 
package perl; 
$pe = "We are perl programmer\n"; 
print $pe; 
الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيد سوف تکون كما يلي من خلال الشكل الاتي‎ 


Figure(76) 
*Code(97) 
$pe = "programming-fr34ks\n 
print $pe; 
package perl; 
$pe = "We are perl programmer\n"; 
print $pe; 


الان اذا تم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوق تكون كما يلي من خلال الشكل التوضيحي 


الاتي 


Figure(77) 
المتغير الاول من البرنامج هو عبارة عن متغير رئيسي تابع للبرنامج العام اي متغير موزهم أما بالنسبة الى المتغير‎ 
الثاني فهو عبارة عن متغير خاص يعود الى الحزمة التي تحمل الاسم بيرل‎ 
أن متغيرات ى الحزم في لغة البيرل من الممكن ان يتم الوصول او الولوج اليها من خلال الحزم الاخرى وذلك‎ 
بأستخدام الاسم الكامل للحزمة‎ 
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Using ‘strict’ Variables 


بما أنه لغة البيرل تمنح المبرمج امكانية كبيرة في تعريف متغير من النوع العام اي متغير 1وطاه[ع فأنه كان لابد من 

توفير حل اخر بديل يسمح للمتغيرات بالاحتفاظ بخوصيتها وهنا كان الحل في استخدام الموديل الذي يحمل الاسم 

*Code(98) 
strict 


ویکون التمثيل البرمجي لهذا الموديل في لغة البيرل كما يلي من خلال المقطع البرمجي الاتي 
*Code(99)‏ 
use strict;‏ 
package perl;‏ 
$package_variable = "This variable is in ",'MyPackage'!;‏ 


الان عندما يتم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(78) 
والحل لهذه المشكلة التعريفية تكمن فى استعمال الدالة‎ 
+*Code(100) ٠ 
my 
*Code(101) 


use strict; 
package perl; 
my $package_variable = "This variable is in ",'MyPackage'!; 
الان عندما يتم تنفيذ البرنامج سوف يلاحظ المبرمج اختفاء الرسالة التي تشير الى حدوث خطأ اثناء التنفيذ وذلك‎ 
بسبب استعمال الدالة انفة الذكر‎ 


Declaring Global Package Variables 


المعنى التقليدي للمتغير الذي يحمل النمط 1ه طه1[عهو أن يكون ممكن للمبرمج أن يراه من كافة اجزاء البرنامج أن 
المتغير يكون عادة متغير 1وطاه1ع في داخل الحزمة التي تم تعريفه فيها وهذا يعني أنه من الممكن لأي متغير في 
الحزمة ان يصل الى هذه المتغيرات من دون الحاجة الى الاستدعاء الكامل لها ولغة البيرل تتعامل مع متغيرات لانه 
الحزم على أنها المتغيرات ال 1هطم!اع الحقيقية لانه من الممكن الولوج اليها من اي مكان من البرنامج فقط باستعمال 
الاسم الكامل لها 
والطريقة الابسط لكي يتم كتابة متغير حزمة في لغة البيرل هي كما يلي ان يتم كتابة اسم المتغير بصورة كاملة كما 
يلي من خلال المقطع البرمجي الاتي 
*Code(102)‏ 
package perl ;‏ 
$şperl_pack = "We are perl programmers\n";‏ 
print $perl::perl_pack;‏ 


WaRRIiOr Of Th3 PaSt C3NtUriEs P3rL PacKagEs 


Figure(/9) 


1 1 
ف 


Declaring Global Package Variables wit 


توفر لغة البيرل للمبرمج أمكانية تعريف المتغيرات التي سوف يتعامل معها في المصفوفة وذلك من خلال استعمال 
*Code(103)‏ 


use vars 


ويكون التمثيل البرمجي لهذه التقنية كما يلي من خلال المقطع البرمجي الأتي 

*Code(104) 
use vars qw ($perl_pack,@array_pack,$anotherpack); 
وهذه الطريقة تعمل على تعريف المتغيرات في الحزمة التي سيتم العمل عليها وهذا يعني أن هذه المتغيرات مرئية‎ 
في مكان من الحزمة ومن الممكن أن يتم الوصول اليها بصورة مباشرة من خلال تخصيص اسم المتغير كاملا‎ 
اضافة الى اسم الحزمة‎ 


*Code(105) 

sub perl { 

use vars qw($pack_var); 

$pack_var = "We are perl programmers"; 

} 

print $pack_var; 

perl; 

print $pack_var; 
والان عندما يتن تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل‎ 


Figure(80) 


Figure(81) 
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Lexical Variables 


ال sمااهVari‏ اهعم هي متغيرات يتم تعريفها في داخل عمهءء [هء1×م] وهذه المتغيرات من غير الممكن 
يتم التعامل معها خارج نطاق المدى الذي تم تعريفها فيه 
*Code(106)‏ 
use strict;‏ 
Use warnings;‏ 


{ 
my $speak = 'moo'; 
1 
print "speak is '$speak'\n"'; 


الان عندما يتم تنفيذ المقطع البرمجي اعلاه ان الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(82) 
هذه المتغيرات من خ غير الممكن أن يتم التعامل معها من خارج النطاق الذي تم تعريفها فيه وهذه المتغيرات من غير‎ 
والخاص بالحزم لهذا فأنه من غير الممكن أن یتم الوصول اليها وهذا ما‎ ymbol table الممكن أن یتم اضافتها ال‎ 
يلاحظ من خلال المقطع البرمجي اعلاه حيث ان ناتج تنفيذه يخبر المبرمج أن لغة البيرل تتعامل مع المتغير‎ 
1exica] variables تجدر الاشارة الى ماياتي بخصوص أل‎ 


أو لا : ال وماطهنإج 1هءi×هالاتعود‏ الى اي حزمة برمجية لذا فان من غير الممكن ان يتم أعتبار ها انها تنتمي الى 
حزمة برمجية معينة 

ثانيا : من الممكن الوصول الى هذه المتغيرات فقط في داخل البلوك البرمجي الذي تم تعريفها فيه وخارج نطاق هذا 
البلوك لغة البيرل تتعامل مع هذا المتغير على انه متغير غير موجود أصلا 


The main package 


*Code(107) 
$perl = "We are perl programmers"; 
print $perl,"\n 
المقطع البرمجي أعلاه يعتبر مقطع برمجي عادي وبسيط وعندما يتم تنفيذه فأن الناتج من عملية التنفيذ تكون طباعة‎ 
قيمة المتغير والتي هي عبارة عن سلسلة نصية عادية ولكن الامر في هذه الحالة هو أوسع من هذا بقلیل بسبب انه‎ 
لغة البيرل تتعامل مع المقطع البرمجي اعلاه على اعتبار انه حزمة !! وهذا النوع من الحزم يتم أعتباره من الحزم‎ 
الافتراضية من الممكن ان يتم كتابة المقطع البرمجي أعلاه بصورة اخرى مختلفة ولكن مع اعطاء الناتج ذاته‎ 
*Code(108) 
$perl = "We are perl programmers"; 
print $main::perl,"\n 


الان اذا تم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي 
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Figure(83) 


Figure(84) 


فی الحالات البرمجية المشابهة للحالة السابقة فأن الحالة الافتراضية التى توفرها لغة البيرل هى الحزمة ماج" 
حيث يتم أعتبارها الحيز الذي يتم تعريف المتغيرات فيه 
*Code(109)‏ 
$perl = "It’s programming language";‏ 
print $main::perl,"\n";‏ 


Typeglobs 


يتم عنونة ال اهاعم مرفي لغة البيرل من خلال استعمال الرمز * الذي يعتبر بمثابة الرمز التعريف لهذه التقنية 
في لغة البيرل 


آل 1_ ۲۶610۲" في هذا السطر البرمجي تمثل الاسم  mreoLos_D ٣‏ 
How Typeglob Works‏ 


الرمز التعريفي المتبع في لغة البيرل من أجل تعريف ال اماعة مر 
Figure(85)‏ 
جمیع المتغيرات العامة في لغة البيرل تعود الى الحزمة الافتراضية او الحزمة::وزوط 


ويكون الاسلوب البرمجي الذي تتبعه ال طاه‌اعٍع مر مع المتعيرات التي تکون من ٣ه‏ اهو كما يلي من خلال المقطع 
البرمجي الاتي 


*Code(110) 
Şperl = "We are perl programmer"; 
*perl_Tg = $perl; 
print *perl_Tg; 
الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي‎ 
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Figure(86) 
يعزى سبب ظهور الحزمة مزويم عندما تم تنفيذ المقطع البرمجي السابق هو أنه المتغير الموجود في المقطع‎ 
البرمجي السابق لم يتم تعريفه في اي حزمة متخصصة لذا تم اعتباره متغير يعود الى الحزمة الافتراضية‎ 
*Code(111) 


package typeglob ; 

$perl = "We are perl programmer"; 
*perl_Tg = $perl; 

print *perl_Tg; 


الان عندما يتم تنفيذ المقطع اعلاه فأن الناتج هو كما يلي من خلال الشكل التوضيحي الاتي 


Figure(87) 


*Code(112) 

@perl = ("Storm","Striker","Spawn"); 
*perl_Tg = @perl; 

print *perl_Tg; 


ألان لو يتم تنفيذ ١‏ لمقطع البرمجي اعلاه فان الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


ا 

Figure(88) 
وضح المقطع البرمجي اعلاه الطريقة التي يتم من خلالها التعامل مع المصفوفات من خلال تقنية ال اماععمرا‎ 
ويلاحظ انه عندما تم تنفيذ البرنامج كان الناتج من عملية التنفيذ هو ظهور رقم فقط وليس العناصر التي والسبب هو‎ 
أنه في هذه الحالة اي في حالة التعامل مع المصفوفات فأن الناتج يشير الى عدد العناصر التي تحتويها المصفوفة‎ 
3 وبما أن عدد العناصر هو 3 فان الرقم الذي تم الحصول عليه عند التنفيذ هو‎ 
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The Symbol Table 


عندما يتم تكوين حزمة جديدة في لغة البيرل فهذا يعني ان البيرل سوق تقوم بتكوين جدول عاطه) إمامصرء 
لكي يتعامل مع المتغيرات وفي لغة البيرل يتم التفريق بين اسماء الحزم بواسطة العلامة المزدوجة :: كما في عالم 
المجلدات حيث يتم استعمال ال كل من العلامتين / | للتفريق بين المجلدات 
وعلى سبيل المثال لو تم تعريف حزمة كهذه الحزمة 
*Code(113)‏ 
package One::Two::Three;‏ 
$Number = "1-2-3";‏ 


يوضح المقطع البرمجي أعلاه الفكرة الاتية 


يحوي على مدخل لجدول رموز العنصر عع را 
يحوي على مدخل لجدول رموز العنصرمس) 


کونٽ على اعبار انها مدخلر۲اع لماه و حفيقة هو لا بحثوي على قيمة فعلية 
لا يحتوي على اي مدخلات لجدول الرموز ولكن يحتوي على مدخل 


ل اماع مرا الذي يحمل الاسم ءامن و الذي بدوره يحمل قيمة من نو ع ٣واهءء‏ والئي هي 
1-2-3 


Figure(89) 
وبما ان منهوصط هي الجذر ولا تحتوي على قيمة فعلية لذا من الممكن ان يتم الاستغناء عنها‎ 


يحتوي على مدخل لجدول رموز 


Three Number 


package 


يحتوي على مدخل لجدول رموز الغصرمس] 
One‏ 


کونت على اعتبار انها مدخلر۲ارع لوصو حقيقة هو لا يحتوي على قيمة فعلية 


لا يحتوي على اي مدخلات لجدول الرموز ولکن يحتوي على مدخل 
لماهماعع مرا الذي يحمل الاسم ٣ع‏ اصن و الذي بدوره يحمل قيمة من نر ع ٣واوءء‏ والتي هي 
1-2-3 


Figure(90) 
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P3rL ObjEct |‏ 
الكائن هي عبارة عن طريقة للوصول الى البيانات وفي اغلب اللغات البرمجية يكون الكائن عبارة عن مستودع يتم 
يحتوي على البيانات ولكن بصورة عامة اي شئ يوفر طريقة للوصول الى البيانات من الممكن ان يكون كاثن 
و البيانات التي يوفر لها الكائن لها الوصول تعرف بالمصطلح الاتي ومںاو» ))۸ والمستودعات التي تخزن 
هذه القيم تعرف بأسم ال وعا طعا ومن الممكن القول ان الكائنات هي اكثر من مجرد مجموعة من المتغيرات 
حيث أن اغلب الكائنات لها خاصية أخرى تعرف بخاصية التغليف او ما يعرف برمجيا بأسم و0زاpsu[aمenca‏ 
وخاصية التغليف تعني ان خواص الكائن من غير الممكن أن يتم الوصول اليها في كافة انحاء البرنامج ولكن من 
الممكن ان يتم الوصول اليهم من خلال روتينات فرعية معينة وهذه الروتينات الفرعية في هذه الحالة يطلق عليهم 
اسم العلاقات او ال لمطم وبصورة عامة هذه العلاقات تكون متاحة لكل عمليات الوصول وفي بعض الاخيان 
يكون الغرض من هذه العلاقات هو أن يتم تقليل الطرق التي من الممكن أن تتبع من أجل تغيير قيم الكائن 


Classes 
ال ووهاء †ععزطام في لغة البيرل يوفر التطبيق للكائن حيث ان ال ووهاع في لغة البيرل يتكون من‎ 
1- class methods 
والتي هي عبارة عن روتينات تعمل على تأدية وظيفة برمجية تكون خاصة لل ووهاء‎ 
2- object methods 
والتي هي عبارة عن روتينات تعمل على تأدية وظيفة برمجية تكون خاصة للكائن ما بصورة مستقلة‎ 
3- package variables 
ويحتوي ال وهام أيضا على متغيرات حزم و لكن هذه المتغيرات في مجال البرمجة كائنية المنحى يطلق عليها‎ 
class attribute pw 
يحتوي على الاقل على علاقة تكون هذه العلاقة هي مسؤولة عن توليد كائنات جديدة تعرف هذه‎ object class 
وهنالك بعض ال ووواء tععزطم قد تحتوي على علاقة اخرى تعرف هذه‎ constructor صeاط0ل العلاقة بأسم‎ 
العلاقة الاخرى بأسم العلاقة الهدامة التي تعمل على ترتيب الكائنات التي تم تهديمها‎ 
1- class method 
هو عبارة عن روتين فرعي يتعامل مع ال مره معهعهم على أعتبار هذه الحزمة هي المعامل الاول في هذا‎ 
الروتين الفرعي‎ 
2- object method 
هو عبارة عن رويتن فرعي و الذي يتعامل مع ال مهه {ءمزطم على أعتبار هذا الكائن هو المتغير الاول في هذا‎ 
الروتين الفرعي‎ 
ولكن لغة البيرل تعمل على تمرير هذه المتغيرات بصورة أتوماتيكية عندما يقوم المبرمج باستعمال علامة السهم او‎ 
arrow method(->)Jlڊ ما يعرف‎ 


WaRRIiOr Of Th3 PaSt C3NtUriEs P3rL ObjEcTs 


class method 7:7 


والتي هي عبارة عن روتينات تعمل على تأدية وظيفة برمجية تكون خاصة لل ووهاع 


هو عبارة عن روتين فرعي يتعامل مع العصهد ععه)عءومعلى أعتبار هذه الحزمة هي المعامل 
الأول في هذا الروتين الفرعي 


Figure(91) 


objectmethod 


والتي هي عبارة عن روتينات تعمل على تأدية وظيفة برمجية تكون خاصة للكائن ما بصورة مستفلة 


هو عبارة عن رويتن فرعي و الذي يتعامل مع ال عصود اعءزماهعلى أعتبار هذا الكائن هو المعامل الاول 
في هذا الروتين الفرعي 


Figure(92) 
Creating Objects 


کل ال ئم {ءe‌طه‏ تحتوي على الاقل علاقة واحدة تعرف هذه العلاقة بالعلاقة البناءة حيث تعمل هذه العلاقة 
على بناء وتکوین الكائنات الجديدة ولغة البيرل تسمح للبرمج ان يطلق اي اسم علی هذه العلاقة البناءة ولكن بشرط 
واحد هو ان تكون هذه العلاقة هي عبارة عن روتين فرعي 


ويكون تكوني الكائن في لغة البيرل كما يلي من خلال المقطع البرمجي الاتي 
*Code(114)‏ 


object = programming: :fr34ks->newÛ; |‏ 
يلاحظ في البرمجي السابق انه تمت عملية التعريف حيث وضع New keyword JI‏ بعد اسم الحزمة ولكن لغة 


البيرل توفر طريقة اخرى للتعامل مع هذه الحالة وهي كما يلي من خلال المقطع البرمجي ألاتي 
*Code(115)‏ 
$object = new programming: :fr34ks(0; |‏ 
تجدر الاشارة الى أن من خلال المقطع البرمجي السابق المعني البرمجي هو ذات المعنى ولكن الطريقة هي التي قد 
أختلفت أي في الطريقة الثانية تم تعريف ال لإم سرع سعد قبل اسم الحزمة ولكن في المقطع البرمجي الاسبق 
تمت عملية التعريف بعد اسم الحزمة 
Using Objects‏ 


مع الكائنات في لغة البيرل يتم التعامل مع علامة السهم او ما یعرف بال arrow operator‏ للوصول الى الکائنات 
والتعامل معها ولكن تجدر الاشارة الى انه في لغة البيرل انه عندما يكون المبرمج في بيئة البرمجية كائنية المنحى 
يكون السهم له دلالة و هي التعامل مع الكائنات و الوصول اليها ولكن عندما يكون المبرمج في بيئة أخرى خارج 
البرمجة كائنية المنحى يكون لها للسهم استعمال ودلالة برمجية أخرى و هي الحالة الاتية 
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*Code(116) 

$value = $hashref->{'key'}; 

يشير المقطع البرمجي اعلاه الى ان السهم في الوسط البرمجي الخارج عن نطاق هو التعامل مع المتغيرات التي من 
نوع هاش و التي تم معاملتها بدورها مع تقنية المرجع او الرفرنس 


*Code(117) 

Şobject_result = $object->method(@args); 

$class_result = Class::Name->classmethod(@args); 

$value = $object->{'property_name'}; 

Callıng class method 

أل لطاع ءوواعهي عبارة عن روتين فرعي يتم تعريفه في داخل ال ووواعوغالبا ما يقتصر العمل البرمجي لهذه 
ال method‏ assا1ءعلى‏ ال وووام بصورة خاصة أكثر من من عمله على الكائن البرمجي 


*Code(118) 
$result = My::Object::Class->classmethod(@args); | 
هكذا يكون التمتيل البرمجي لعملية ال dمطاعم ويها في لغة البيرل ولكن من الممكن أن يتم تغيير عملية التمثيل‎ 
البرمجي من هذه الحالة الى حالة اخرى‎ 


*Code(119) 
|Sresult = classmethod My::Object::Class(@args); | 
في الحالة البرمجية الاولى كان الاسلوب البرمجي المتبع هو هو أنتكون الحزمة البرمجية هي الاولى ومن ثم يتن‎ 
class method J| ء«lعدتwl‎ 
والحالة البرمجية الثانية كانت العملية معاكسة للعملية الاولى‎ 
Calling object method 


أل ل0طاeص ect‏ زام عبارة عن روتين فرعي يتم تعريفه داخل الصنف ويكون عمله البرمجي على الكائن بصورة 
محددة وتتم عملية استدعاء ال 0dطاعم ect‏ زام من خلال علامة اdسم arrow operator J| gl‏ 

*Code(120) 
$result = $object->method(@args); | 
اخ ی افر ری اعا ا وک اکا کے ردا اسر از رمج رین د بذ اوضع ااررین‎ 
الفرعي مع المعاملات التي يحتويها هذا الروتين الفرعي‎ 


How To ref 
ھي عبارة عن دالة برمجية من الدوال المبنية في النظام في لغة البيرل ويكون اسلوب التمثيل‎ keyword "ref'Jا‎ 
البرمجي الخاص بها كما يلي من خلال المقطع البرمجي الاتي‎ 
*Code(121) 
$perl_var="perl programmer"; 
$perl_ref = \$a; 
if (ref($perl_ref) eq "SCALAR"){ 
print "ok, it’s a ref a now"; 
1 
else { 
print "Bad, it’s not a ref any more"; 


} 
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و الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 


Figure(93) 
*Code(122) 
pperl_array=("Spawn","Storm","Striker"); 
$perl_ref = \@perl_array; 
if (ref($perl_ref) eq "ARRAY"){ 
print "ok, it’s a ref a now"; 
1 
else { 
print "Bad, its now a ref any more"; 


} 
والان عندما يتم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(94) 
من خلال كل من المقطعين البرمجيين السابقين تم استعمال نوعين من المتغيرات وهما‎ 


1- scalar 
2-_array 
حيت تم تحويلهم من صيغتهم البرمجية البسيطة الى صيغة المرجع اي تم تحويلهم الى مرجع ومن ثم استعمال دالة‎ 
ال #عع لكي يتم التأكد من أن هذين المتغيرين تم معاملتهم بتفنية المرجع بنجاح‎ 


ref function 


SCALAR ¦ ARRAY HASH | REGEXP CODE | REF  GLOB j| FORMAT | IO VSTRING 


هي عبارة عن معاملات تكون بمثابة القيم التي تحتويها الدالة البرمجية اعلاه 


Figure(95) 
How To bless 


تعتبر دالة ال ووم1ط من الدوال البرمجية المبنية في لغة البيرل ويكون اسلوب التمثيل البرمجي لهذه الدالة في لغة 
لرل که ان ون ا ال ارسج ااي 


*Code(123) 
bless 1- <reference> ,2- <packages> | 
الدالة البرمجية اعلاه كما هو موضح تتعامع مع نوعين من المعاملات النوع الاول من المعاملات هو‎ 
1- reference 
2- packages 
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أما عن طريقة التمثيل البرمجي لهذه الدالة فهي تكون كما يلي من خلال المقطع البرمجي الاتي 
*Code(124)‏ 
$a= " We are perl programmers";‏ 
$a_ref = \$a;‏ 
print '$a_ref is a ' ,ref $a_ref ," reference","\n";‏ 
bless ($a_ref , "P3rL ProGrammErs");‏ 
print '$a_ref is a ' ,ref $a_ref," reference","\n";‏ 


ألان عندما يتم تنفيذ المقطع البرمجي اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(96) 
$4_إ٥۴ الان وبعد أن تم تنفيذ المقطع البرمجي اعلاه فأن ما قد حصل هو انه قد تم تحويل المتغير الذي يحمل الاسم‎ 
الى مرجع او مهمع ولكن هذا المرجع الان يعلم ماهي الحزمة البرمجية التي يعود آليها أي انه لو تم استدعاء‎ 
هذا المتغير فأن لغة البيرل الان سوف تقوم بالبحث عن هذه العلاقة في داخل الحزمة‎ ىلعصمtطەل‎ 
P3rL ProGrammErs التي تحمJ !لٺم‎ 
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ConstrUuCtOrs 
الجزء الاهم من أي كائن هو العلاقة البناءة التي يحتويها وهي العلاقة التي يتم استخدامها في بناء وتكوين كائنات‎ 
اخرى جديدة و العلاقة و الوحيدة للكائن التي تستخدم في عملية بناء الكائنات الجديدة هي سع1.ويكون تكوين‎ 
الكائنات الجديدة من خلال المقطع البرمجي الاتي‎ 


الطريقة الاولى 
*Code(125)‏ 
object = new My::Object::Class;‏ 
object = new My::Object::Class(‘initial', 'data', 'for', 'object’);‏ 

الطريقة الثانية 


*Code(126) 
$object = My::Object::Class->new(Û; 
$object = My::Object::Class->new((initial'", 'data', 'for', 'object’); 
Object oriented syntax J| الطريقة البرمجية الاولى هي الطريقة التي يتم أتباعها عادة في‎ 
cاهوو ما الطريقة البرمجية الثانية هي الطريقة التي يتم أتباعها في ال 1او لمطأعص‎ 
والمعرف سعم هو عبارة عن روتين فرعي يقوم ببناء وتكوين الكائنات البرمجية و يكون غالبا استعمال المعرف‎ 
متبو عا بال(<-) إ0اaإeمpمە w٥rإه وتعتبر الدالة ووم1ط هي قلب اي عملية بناء اي قلب اي عملية عع زام‎ new 
كما قد ذكر اعلاه فأن الدالة ووم1ط تتعامل مع نوعين من المتغيرات وهذين النوعين هما‎ وعonstructing‎ 
1- references 
2- packages 
ولكن تجدر الاشارة الى ان الدالة ووم1ط من الممكن ان تتعامل مع نوع واحد من المتغيرات وهذا النوع هو المرجع‎ 
ويتم اعتماد الحزمة الافتراضية كموقع لهذا المرجع‎ 


*Code(127) 

use strict; 

sub new { 

$self = {} # create a reference to a hash 

bless $self; # mark reference as object of this class 
return $self; # return it. 

j} 


على المبرمج الذي يتعامل مع هكذا موقف من المواقف التي يتم استعمال نمط واحد مع دالة ال ووم1ط فهذا يعني أن 
هذا النمط لايملك القدرة على التعامل مع تقنية الوراثة وهذا ما يطلق عليه بصم simple constructor J|‏ 
لا لايد من استمال انعط الكامل من هذه الال كى كرون استعمال الور اة ممكدا 
The new method‏ 
لقد ذكر في الموضوع السابق ان المعرف سعد هو عبارة عن روتين فرعي اذن فهذا يعني انه هذا الروتين الفرعي 
*Code(128)‏ 


sub new { 


my $self = {} 
bless $self; 
return $self; 


المقطع البرمجي اعلاه هو عبارة عن احد التعاريف التي تم استعمالها في المعرف سعط ولكن اذا ما تم استعمال هذا 
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المقطع البرمجي فهذا يعني أن المقطع البرمجي لا یمکن ان يتم استعمال تفنية الوراثة لانه دالة ال ووماط تم تحدید 
معامل واحد لها كمعرف لذا لا بد من استعمال مقطع برمجي أخرلهذا المعرف ويسمح باستعمال تقنية الوراثة وهو 
*Code(129)‏ 
sub new {‏ 
my $class = shift;‏ 
my $self = {@_}‏ 
bless($self, $class);‏ 
return $self;‏ 
} 
*Code(130)‏ 
package programmers;‏ 
sub new {‏ 
my $class = shift;‏ 
my $self = {@_}‏ 
bless($self, $class);‏ 
return $self;‏ 
my $object = programmers: :new( "programmers",‏ 
Spawn =>"Perl programmer",‏ 
Storm =>"C programmer",‏ 
Striker =>"Python programmer",‏ 
Website => "programming-fr34ks"‏ 
J;‏ 


print $object->{Striker},"\n"; 
والان عندما يتم تنفيذ المقطع البرمجي المذكور اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال‎ 


الشكل الاتي 

Figure(97) 1‏ 
الان كما يلاحظ من المقطع البرمجي اعلاه فان البيانات يتم خزنها في ال ع٥ ٠۴٥۲٥,‏ _طوهط حيث يتم التعامل مع 
هذه البيانات على أنها معاملات للعلاقة البناءة و الان عندما يتم استدعاء العلاقة البناءة فأن لغة البيرل سوف ترى 
البيانات التي تم خزنها في ال ععمعإع؟ءءإ يهط كما يلي 


*Code(131) 
"Spawn", "Perl programmer", 
"Storm","C programmer", 
"Striker",Python programmer", 
"Website", "programming-fr34ks" 
ثم تقوم العلاقة البناءة باستعمال الاسم ال وووهاح كما قد ذكر سابقا ثم ما قد تبقى من المعامل البرمجي سوق يكون‎ 
شکله كما يلي من خلال المقطع البرمجي الاتي‎ 
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*Code([132) 

@_=( 

"Spawn","Perl programmer", 
"Storm","C programmer", 
"Striker", Python programmer", 
"Website", "programming-fr34ks" 


J 
وعندها عند نهاية البرنامج يتم طباعة ناتج العملية‎ 
ومن الممكن ان يتم صياعة المقطع البرمجي 131بطريقة اخرى حيث يكون تمثيله البرمجي كما يلي من خلال‎ 
المقطع البر مجي الاتي‎ 
*Code([133) 
package programmers; 
sub new { 


my $class = shift; 

my $self = {@_J; 

bless($self, $class); 

return $self; 

j 

my $object = programmers-> new( 
Spawn =>"Perl programmer", 
Storm => "C programmer", 
Striker => "Python programmer", 
Website = > "programming-fr34ks" 
J 


print $object->{Striker},"\n"; 
وايضا عندما يتم تنفيذه فان الناتج من عملية التنفيذ سوف يكون كما يلي من خلال الشكل الاتي‎ 


Figure(98) 


package programmers; 
sub new { 


الموقع الخاص بالمعرفسعد 


حيث يوضح الشكل موقع الروتين الفرعي الخاص بهذا المعرف my Sclass = shift;‏ 


my $self= {@ _}: 

bless($self, $class); 

return self; 

قمع ا ف wعہ‏ من ١‏ لمقطع ١‏ 1 أ 
ا و my $object = programmers->new]‏ 

Spawn =>»"Perl programmer", 

Storm => "C programmer", 

Striker =>"Python programmer", 

Website =>"programming-fr34ks" 

J: 

print $object-> {Striker}, "n"; 


Figure(99) 
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Creating methods 


لقد ذكر على في الصفحات السابقة ان المعرف سعد هو عبارة عن علاقة وأن هذه العلاقة هي عبارة عن روتين 
فرعي اذن الممكن ان يقوم المبرمج بكتابة اي علاقة برمجية يرغب بها عن طريق كتابة روتين فرعي يقوم بهذه 
العملية ومن الممكن عندها ان يتم معاملة هذا الروتين الفرعي على أنه عبارة عن علاقة برمجية وحينها يتحول الى 
معرف يعامل معاملة المعرف سعمص ويكون التمتيل البرمجي لهذه العملية في لغة البيرل كما يلي من خلال المقطع 
البرمجي الاتي 


*Code(134) 

package programmers; 
sub new { 

my $class = shift; 

my $self = {@_} 
bless($self, $class); 
return $self; 

j 
sub get_name { 

my $self = shift; 

return $self->{Perl_programmer}; 


my $object = programmers-> new( 
Perl_programmer => "Spawn", 
C_programmer => "Storm", 


python_programmer =>"Striker", 
programming_fr34ks = >"website" 
J; 


print $object->get_name,"\n"'; 


الان عندما يتم تنفيذ المقطع البرمجي المذكور اعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال 


الشكل الاتي 
Spawn‏ 
Figure(100)‏ 
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موقع المعرفنعصهم أعع 


package programmers; 
sub new { 
my Sclass = shift; 
my $self= {@_Y: 
bless(Sself, Sclass); 
return $self; 
1 

sub get_name { 

my $self = shift; 


حيث يوضح الشكل موقع الروتين الفرعي الخاص بهذا المعرف return $self-> {Perl programmer}:‏ 
1 


my Sobject = programmers-=new( 
Perl programmer =>"Spawn”", 

C_ programmer => "Storm", | 
python_programmer =>"Striker", 
programming fr34ks =>"website" 


1 


موقع المعرف عصهم أعع 
من المقطع البرمجي 


print $object- 


Figure(101) 


س یم پیا خب ما ج ل بج س 
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Inheritance 


توفر تقنية الوراثة في لغة البيرل للمبرمج خاصية مميزة وهذه الخاصية تكون في اعادة استعمال المقاطع البرمجية 

لكي لا يكون البرنامج مليء بالمقاطع البرمجية التي من الممكن ان يتم التخلي عنها يكون التمثيل البرمجي للوراثة 

في لغة البيرل من خلال استعمال متغير خاص الذي يوفر هذه الخاصية وهو المتغير 

*Code(135) 
@ISA 


هذه ۱ لمصفوفة الخاصة هي ١‏ لمتغير الذي تتعامل مع تقنية الوراثة ويكون التمثيل البرمجي لهذه ا لعملية كما يلي من 
خلال المقطع الاتي 


*Code(136) 

package spawn ; 

sub test_1 { 

print "Test 1.. 2.. 3 ok inheritance experiment went well\n"; 


1 
package test; 


@ISA = (spawn); 
test->test_1; 


اذا تم تنفيذ المقطع البرمجي السابق فأن الناتج من عملية تنفيذه سوف تكون كما يلي من خلال الشكل الاتي 


Figure(102) 
OO LP EL k—k—قصقÎقûûڌMآثآث“ث““ك‎ 
File Edit View Tools Settings Help 
:9 E/E E | 0 


” New Open Save SaveAs Close 


package spawn ; 
sub test _ Î { 
þrint "Test 1.. 2.. 3 ok inheritance experiment went well\n"; 


١ 


الحزمة الاب او ال معام 


الطريفة البرمجية التي من خلالها يتم تطبيق الورائة في لغة البيرل 


Figure(103) 
تقوم بالتوارث من الحزمة التي تحمل الاسم وسوموحيث أن الحزمة وم سوف ترث العملية التي تحمل الاسم‎ 


test_1 


1- parent package (spawn) 
2- child package (test) 
3- method (test_1) 
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1 


sub test 1 { 
print "Test 1.. 2.. 3 ok inheritance experiment went welltn"; 


ال 0dططااعص‏ التي سيتم تور اثها من قبل الحزمة التي تحمل الاسم وع 


Figure(104) 


اسح الحزمة التي سيتم الوراثة منها 
. انها تحتوي على الحزمة ال خرع ةم 


(@ISA = (spawn): 


Figure(105) 
الاسم وسومء_هذا النوع من الوراثة يعرف باسم الوراثة الفردية او ععمهاذإ طم ماع مزواو ما تعرف أختصارا ب‎ 


واذا حاول المبرمج ان يقوم بتنفيذ المقطع البرمجي 136 بالطريقة الاتية 
*Code(137)‏ 


package spawn ;‏ 
sub test_1 {‏ 
print "Test 1.. 2.. 3 ok inheritance experiment went well\n"';‏ 
package test;‏ 
test->test_l;‏ 
يلاحظ من المقطع البرمجي أنه سيتم تنفيذه من دون الاستعانة بمصفوفة الوراثة فأن الناتج عندما يتم التنفيذ سيكون 
کما یلی من خلال الشکل الاتی 


Figure(106) 
@ISA 


أولا : تجدر الاشارة الى أن هذه المصفوفة 189۸ يتم لفظها بالطريقة الاتية 19-۸ 
ثانيا :هذا المتغير يجب التعامل معه دائما بالطريقة ال اوطاها6 ولا يجب ان يتم معاملته مع الدالة رمم 
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Overridıng the methods 


حالات ال عمذلل ]مهفي لغة البيرل البيرل هي تلك الحالة البرمجية التي يكون المقطع البرمجي الذي يتم التعامل 
معه يحتوي على ول0طاعص ٥سا‏ تكون العلاقة الاولى تعود الى ووواء موهط و الاخرى تعود اذى derived class‏ 
ويكون التمثيل البرمجي لهذه في لغة البيرل كما يلي من خلال المقطع البرمجي الاتي 
*Code(138)‏ 
package Animal;‏ { 
sub speak {‏ 
my $class = shift;‏ 
print "a $class goes ", $class->sound, "!\n";‏ 
1 
package Mouse;‏ { 
@ISA = qw(Animal);‏ 
sub sound { 'squeak' }‏ 
sub speak {‏ 
my $class = shift;‏ 
print "a $class goes ", $class->sound, "!\n";‏ 
print "[but you can barely hear it! J\n"';‏ 
1 


Mouse->speak; 


الان عندما يتم تنفيذ المقطع البرمجي اعلاه فان الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل الاتي 


Figure(107) 
two methods يلاحظ من المقطع البرمجي اعلاه انه يحتوي کما ذکر عل‎ 


س س س 
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† package Animal; 
sub speak { 
my $class = shift; 
print "a $class goes ", $class->sound, "!in"; 


1 


١ 


الله طاعص الارل الخاص بال ووواع عووط 


{f package Mouse; 
(@ISA = qw Animal); 
sub sound { 'squeak' } 


sub speak {‏ 
ال لطاع الثاني الذي يحتويه المقطح البرمجي my $class = shift;‏ 
وهذه ال 0d‏ طاعص هي ال 0d‏ طاعص الخاصة بclassJ print "a $class goes ", Şclass->sound, "In"; derived‏ 
وهذه ال له طاعص هي التي سيتم التعامل print "[but you can barely hear it! jin";‏ 
معها عند تنفيذ المقطع البرمجي } 
ٍ 


Mouse->speak; 


Figure(108) 
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